home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / polardrw / data.z / frmPaper.frm < prev    next >
Text File  |  1999-04-29  |  10KB  |  302 lines
  1. VERSION 5.00
  2. Object = "{9D74B104-40BE-11D2-AA5F-008048E292F1}#1.0#0"; "COLORSELECT.OCX"
  3. Begin VB.Form frmPaper 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Paper settings"
  6.    ClientHeight    =   3315
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   4935
  10.    Icon            =   "frmPaper.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3315
  15.    ScaleWidth      =   4935
  16.    StartUpPosition =   1  'CenterOwner
  17.    Begin VB.CommandButton btnPaperOutlineColor 
  18.       Caption         =   "Choose color..."
  19.       Height          =   360
  20.       Left            =   2910
  21.       TabIndex        =   7
  22.       Top             =   2085
  23.       Width           =   1320
  24.    End
  25.    Begin VB.CommandButton btnPaperShadowColor 
  26.       Caption         =   "Choose color..."
  27.       Height          =   360
  28.       Left            =   390
  29.       TabIndex        =   5
  30.       Top             =   2085
  31.       Width           =   1320
  32.    End
  33.    Begin VB.CommandButton btnOK 
  34.       Caption         =   "OK"
  35.       Height          =   375
  36.       Left            =   1200
  37.       TabIndex        =   8
  38.       Top             =   2865
  39.       Width           =   870
  40.    End
  41.    Begin VB.CommandButton btnCancel 
  42.       Caption         =   "Cancel"
  43.       Height          =   375
  44.       Left            =   2175
  45.       TabIndex        =   18
  46.       Top             =   2880
  47.       Width           =   870
  48.    End
  49.    Begin VB.TextBox Text4 
  50.       Height          =   375
  51.       Left            =   7095
  52.       TabIndex        =   15
  53.       Text            =   "Text4"
  54.       Top             =   4980
  55.       Width           =   1335
  56.    End
  57.    Begin VB.TextBox Text3 
  58.       Height          =   375
  59.       Left            =   6990
  60.       TabIndex        =   14
  61.       Text            =   "Text3"
  62.       Top             =   4035
  63.       Width           =   1455
  64.    End
  65.    Begin VB.TextBox txtPageWidth 
  66.       Height          =   285
  67.       Left            =   3525
  68.       TabIndex        =   3
  69.       Text            =   "Text2"
  70.       Top             =   705
  71.       Width           =   765
  72.    End
  73.    Begin VB.TextBox txtPageHeight 
  74.       Height          =   285
  75.       Left            =   3525
  76.       TabIndex        =   2
  77.       Text            =   "Text1"
  78.       Top             =   330
  79.       Width           =   750
  80.    End
  81.    Begin VB.CommandButton btnPaperColor 
  82.       Caption         =   "Choose color..."
  83.       Height          =   360
  84.       Left            =   285
  85.       TabIndex        =   1
  86.       Top             =   690
  87.       Width           =   1320
  88.    End
  89.    Begin ColorSelectLib.ColorSelect ctlCSPaperColor 
  90.       Height          =   495
  91.       Left            =   3795
  92.       TabIndex        =   11
  93.       Top             =   2970
  94.       Width           =   375
  95.       _Version        =   65536
  96.       _ExtentX        =   661
  97.       _ExtentY        =   873
  98.       _StockProps     =   0
  99.    End
  100.    Begin VB.CheckBox chckShowPaper 
  101.       Caption         =   "Show paper"
  102.       Height          =   375
  103.       Left            =   285
  104.       TabIndex        =   0
  105.       Top             =   240
  106.       Value           =   1  'Checked
  107.       Width           =   1215
  108.    End
  109.    Begin VB.Frame frOutline 
  110.       Caption         =   "Paper outline"
  111.       Height          =   1290
  112.       Left            =   2640
  113.       TabIndex        =   10
  114.       Top             =   1305
  115.       Width           =   2220
  116.       Begin ColorSelectLib.ColorSelect ctlCSPaperOutlineColor 
  117.          Height          =   135
  118.          Left            =   360
  119.          TabIndex        =   12
  120.          Top             =   1320
  121.          Width           =   735
  122.          _Version        =   65536
  123.          _ExtentX        =   1296
  124.          _ExtentY        =   238
  125.          _StockProps     =   0
  126.       End
  127.       Begin VB.CheckBox chckPaperOutline 
  128.          Caption         =   "Show paper outline"
  129.          Height          =   375
  130.          Left            =   225
  131.          TabIndex        =   6
  132.          Top             =   360
  133.          Width           =   1710
  134.       End
  135.    End
  136.    Begin VB.Frame frShadow 
  137.       Caption         =   "Paper shadow"
  138.       Height          =   1290
  139.       Left            =   180
  140.       TabIndex        =   9
  141.       Top             =   1305
  142.       Width           =   2220
  143.       Begin ColorSelectLib.ColorSelect ctlCSPaperShadowColor 
  144.          Height          =   375
  145.          Left            =   240
  146.          TabIndex        =   13
  147.          Top             =   1440
  148.          Width           =   375
  149.          _Version        =   65536
  150.          _ExtentX        =   661
  151.          _ExtentY        =   661
  152.          _StockProps     =   0
  153.       End
  154.       Begin VB.CheckBox chckPaperShadow 
  155.          Caption         =   "Show paper shadow"
  156.          Height          =   375
  157.          Left            =   240
  158.          TabIndex        =   4
  159.          Top             =   345
  160.          Width           =   1860
  161.       End
  162.    End
  163.    Begin VB.Label Label1 
  164.       Caption         =   "mm"
  165.       Height          =   225
  166.       Index           =   1
  167.       Left            =   4320
  168.       TabIndex        =   20
  169.       Top             =   810
  170.       Width           =   345
  171.    End
  172.    Begin VB.Label Label1 
  173.       Caption         =   "mm"
  174.       Height          =   225
  175.       Index           =   0
  176.       Left            =   4320
  177.       TabIndex        =   19
  178.       Top             =   390
  179.       Width           =   345
  180.    End
  181.    Begin VB.Label lblPageWidth 
  182.       Caption         =   "Page width:"
  183.       Height          =   255
  184.       Left            =   2565
  185.       TabIndex        =   17
  186.       Top             =   735
  187.       Width           =   975
  188.    End
  189.    Begin VB.Label lblPageHeight 
  190.       Caption         =   "Page height:"
  191.       Height          =   255
  192.       Left            =   2565
  193.       TabIndex        =   16
  194.       Top             =   375
  195.       Width           =   975
  196.    End
  197. End
  198. Attribute VB_Name = "frmPaper"
  199. Attribute VB_GlobalNameSpace = False
  200. Attribute VB_Creatable = False
  201. Attribute VB_PredeclaredId = True
  202. Attribute VB_Exposed = False
  203. Dim fShowPaper, fShowPaperOutline, fShowPaperShadow As Boolean
  204. Dim crPaperShadowColor, crPaperOutlineColor, crPaperColor As OLE_COLOR
  205. Dim lPageHeight, lPageWidth As Long
  206.  
  207. Private Sub btnCancel_Click()
  208.    frmDrawVB.POLARDraw1.DrawPaper = fShowPaper
  209.    frmDrawVB.POLARDraw1.DrawPaperOutline = fShowPaperOutline
  210.    frmDrawVB.POLARDraw1.DrawPaperShadow = fShowPaperShadow
  211.    frmDrawVB.POLARDraw1.PageHeight = lPageHeight
  212.    frmDrawVB.POLARDraw1.PageWidth = lPageWidth
  213.    frmDrawVB.POLARDraw1.PaperColor = crPaperColor
  214.    frmDrawVB.POLARDraw1.PaperShadowColor = crPaperShadowColor
  215.    frmDrawVB.POLARDraw1.PaperOutlinecolor = crPaperOutlineColor
  216.    
  217.    Unload Me
  218. End Sub
  219.  
  220. Private Sub btnOK_Click()
  221.    fShowPaper = CBool(chckShowPaper.Value)
  222.    fShowPaperOutline = CBool(chckPaperOutline.Value)
  223.    fShowPaperShadow = CBool(chckPaperShadow.Value)
  224.    lPageHeight = txtPageHeight
  225.    lPageWidth = txtPageWidth
  226.    crPaperColor = ctlCSPaperColor.SelectedColor
  227.    crPaperShadowColor = ctlCSPaperShadowColor.SelectedColor
  228.    crPaperOutlineColor = ctlCSPaperOutlineColor.SelectedColor
  229.    
  230.    frmDrawVB.POLARDraw1.DrawPaper = fShowPaper
  231.    frmDrawVB.POLARDraw1.DrawPaperOutline = fShowPaperOutline
  232.    frmDrawVB.POLARDraw1.DrawPaperShadow = fShowPaperShadow
  233.    frmDrawVB.POLARDraw1.PageHeight = lPageHeight
  234.    frmDrawVB.POLARDraw1.PageWidth = lPageWidth
  235.    frmDrawVB.POLARDraw1.PaperColor = crPaperColor
  236.    frmDrawVB.POLARDraw1.PaperShadowColor = crPaperShadowColor
  237.    frmDrawVB.POLARDraw1.PaperOutlinecolor = crPaperOutlineColor
  238.    
  239.    Unload Me
  240. End Sub
  241.  
  242. Private Sub btnPaperColor_Click()
  243.     ColorSelectPosition ctlCSPaperColor
  244.     ctlCSPaperColor.SelectColor
  245. End Sub
  246.  
  247. Private Sub btnPaperOutlineColor_Click()
  248.     ColorSelectPosition ctlCSPaperOutlineColor
  249.     ctlCSPaperOutlineColor.SelectColor
  250. End Sub
  251.  
  252. Private Sub btnPaperShadowColor_Click()
  253.     ColorSelectPosition ctlCSPaperShadowColor
  254.     ctlCS